Описание
Возвращает закладку, указывающую запись, которая была добавлена
или изменена последней.
Значение
Возвращаемое значение является массивом типа Variant
элементов типа Byte.
Замечания
Свойство LastModified позволяет найти последнюю
измененную или добавленную запись. Данное свойство используется с табличными и
динамическими объектами Recordset. Чтобы свойство LastModified
имело значение, запись должна быть изменена в самом объекте
Recordset.
Пример
Следующая программа использует свойство LastModified для
перевода указателя текущей записи на измененную запись или на новую запись.
Sub LastModifiedX()
Dim dbsNorthwind As Database
Dim rstEmployees As Recordset
Dim strFirst As String
Dim strLast As String
Set dbsNorthwind = OpenDatabase("Борей.mdb")
Set rstEmployees = dbsNorthwind.OpenRecordset("Сотрудники", dbOpenDynaset)
With rstEmployees
' Сохраняет текущие данные.
strFirst = !Имя
strLast = !Фамилия
' Изменяет данные в текущей записи.
.Edit
!Имя = "Иван"
!Фамилия = "Иванов"
.Update
' Переводит указатель текущей записи на последнюю
' измененную или добавленную запись.
.Bookmark = .LastModified
Debug.Print "Последние измененные данные после вызова Edit: " & !Имя & " " & !Фамилия
' Восстанавливает исходные данные,
' измененные только для демонстрации.
.Edit
!Имя = strFirst
!Фамилия = strLast
.Update
' Добавляет новую запись.
.AddNew
!Имя = "Петр"
!Фамилия = "Петров"
.Update
' Переводит указатель текущей записи на последнюю
' измененную или добавленную запись.
.Bookmark = .LastModified
Debug.Print "Последние измененные данные после вызова AddNew: " & !Имя & " " & !Фамилия
' Удаляет новую запись, созданную только для демонстрации.
.Delete
.Close
End With
dbsNorthwind.Close
End Sub